home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Svd Messageboard Arcive / ephemery / data / MBPREP.ZIP / FILT2.PL < prev    next >
Encoding:
Text File  |  1999-01-31  |  416 b   |  23 lines
  1. $x='';
  2. while (<>) {
  3.    if (/\"MyNum\"/) {
  4.      $x = $_;
  5.      $x =~ s/<INPUT NAME=\"MyNum\" TYPE=\"hidden\" VALUE=\"//i;
  6.      $x =~ s/\".*\s*//;
  7.      $x = substr($x,-8);
  8.     }
  9.    s/\ \;/ /gi;
  10.    s/nbsp;//gi;
  11.    s/<BR>/<BR>\n/gi;
  12.    $z[$i++] = $_;
  13.  
  14. }
  15. $x='z';
  16. print "$x;";
  17. if ($x ne '') {
  18.   $x = ">$x.HTM";
  19.   open(x) || die "$! $x";
  20.   for ($i=0;$i<=$#z;$i++) { print x $z[$i]; }
  21.   close(x);
  22. }
  23.